home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 112 / EnigmaAmiga112CD.iso / dalla rivista / news / amigawriter2demo / amigawriter install-script < prev    next >
Text File  |  2000-05-18  |  28KB  |  784 lines
  1. ;*************************************************************************
  2. ;*  AmigaWriter CD-Installer Version 2.0   3 May 2000               *
  3. ;*                                                                                         *
  4. ;*  ©2000 HAAGE & PARTNER Computer GmbH                       *
  5. ;*                                                                                         *
  6. ;*  If you have any installer questions please let us know!           *
  7. ;*                                                                                         *
  8. ;*************************************************************************
  9. ;
  10. ; $VER: AmigaWriter V2.0 Install Version 2.0 (03.05.2000)
  11.  
  12. (effect "lower_right" "radial" $0022FF $00AA00)
  13. (complete 0)
  14.  
  15. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  16. ; Versionen.
  17.  
  18. (set #amigawriter-version "Version 2.0 Demo")
  19. (set #amigawriter-date "(06.05.00)")
  20.  
  21. ; // Die Dateigrößen
  22.  
  23. (set #size-komplett 5) ; MByte CD-Installation
  24.  
  25. ;====================================================================
  26. ; Initialisierungen
  27.  
  28. ; --- English strings ---
  29.  
  30.     (set #wrongos "\n Sorry, you will need OS3.0 or better\n")
  31.  
  32.     (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")
  33.  
  34.     (set #welcome (cat "\n\n"
  35.         "Welcome to the installation of the demo of the new word processor AmigaWriter\n\n"
  36.         ""#amigawriter-version " of "#amigawriter-date"\n\n"
  37.         "This script copies the whole word processor and some\n"
  38.         "new system librarys to your harddisk!\n\n"
  39.         "© 2000 HAAGE&PARTNER Computer GmbH\n"
  40.         ))
  41.  
  42.     (set #lizenz (cat "\n\n\n"
  43.         "Do you accept the licencee agreement?\n\n"
  44.         ))
  45.  
  46.     (set #install_wizardlib
  47.        "Copying the Wizard.Library")
  48.  
  49.     (set #install_wizardlib_help
  50.        "The Library makes very short programms!")
  51.  
  52.     (set #install_applib
  53.        "Copying the Appmanager.Library")
  54.  
  55.     (set #install_applib_help
  56.        "The Library makes very short programms!")
  57.  
  58.     (set #oldversion (cat "\n"
  59.         "There is an old version of AmigaWriter on your\n"
  60.         "harddisk!\n"
  61.         "" (getassign "AmigaWriter") "\n"
  62.         ))
  63.  
  64.     (set #oldversion_help (cat "\n"
  65.         "Choose an option!\n"
  66.         ""
  67.         ))
  68.  
  69.     (set #new    "New installation")
  70.     (set #drueber "Update your existing version of AmigaWriter")
  71.     (set #remove "Remove AmigaWriter")
  72.  
  73.     (set #chose_path (cat "\n"
  74.         "Please chose a drive and drawer for installation.\n"
  75.         "A drawer AmigaWriter will be generated automatically.\n"
  76.         ))
  77.     (set #chose_path_help "Please chose a path.")
  78.  
  79.     (set #fonterror (cat "\n"
  80.         "FONTPROBLEM found:\n\n"
  81.         "The following Compugrahic fonts:\n\n"
  82.         "CGTimes, CGTriumvirate und LetterGothic\n\n"
  83.         "must be installed.\n\n"
  84.         "You can find these font on your Amiga system disks."
  85.         ))
  86.  
  87.     (set #wrk_justamoment (cat "\n"
  88.         "This will last some time!\n"
  89.         "Please wait ...\n"
  90.         ))
  91.  
  92.     (set #wrk_lexdecrunch (cat "\n"
  93.         "Unpacking...\n\n"
  94.         "AmigaWriter archive\n\n"
  95.         #wrk_justamoment
  96.         ))
  97.  
  98.     (set #decrunch_error (cat "\n\n"
  99.         "Error during unpacking!\n\n"
  100.         "Maybe diskspace got low or you have protected\n"
  101.         "some files.\n"
  102.         ))
  103.  
  104. (set #licencetext 'license/E-license')
  105.  
  106.     (set #prp-wpa8 (cat "\n"
  107.         "Attention:\n\n"
  108.         "If you own a A1200 or A4000 without a graphicsboard (with AGA-chipset) "
  109.         "there might be problems. \nTo solve these, the NewWPA8 patch "
  110.         "will be added to your startup-sequence (your startup-sequence "
  111.         "will be backed up).\n If you don`t want this, "
  112.         "choose SKIP THIS PART."
  113.         ))
  114.  
  115.     (set #wpa8-help (cat "Attention:\n"
  116.         "AmigaOS knows three functions in graphics.library that output "
  117.         "chunky pixels to a RastPort: WritePixelLine8, WritePixelArray8 "
  118.         "and WriteChunkyPixels. \n"
  119.         "The original versions of these routines in the KickstartROM "
  120.         "are rather slow and have a bug that trashes the chunky source "
  121.         "buffer. \n"
  122.         "This patch installs improved versions that are often faster by "
  123.         "a factor of 10 (on a fast CPU). \n"
  124.         "-- Requirements:\n"
  125.         "AmigaOS3.0 or AmigaOS3.1. The WriteChunkyPixels function exists "
  126.         "only in AmigaOS3.1.\n"
  127.         "An 68020 or higher CPU.\n"
  128.         "-- Operation:\n"
  129.         "The core of the patch are four routines that translate chunky data "
  130.         "into 1..4 bitplanes and that write only complete words into a bitmap. "
  131.         "For destinations with 5..8 bitplanes the planes are written in two "
  132.         "passes translating upper and lower nibbles of the source data. "
  133.         "If the destination rectangle is not aligned to words in the bitmap "
  134.         "the unaligned border words are first converted into a buffer on the "
  135.         "stack and then masked and copied to the destination bitmap. "
  136.         "The patch utilizes the DoHookClipRects() function of AmigaOS3.x to "
  137.         "write directly into the destination bitmap, even for layered RastPorts. "
  138.         "This avoids completely the temporary bitmap you pass to the WPL8 and "
  139.         "WPA8 functions, but of course programs must not rely on this. "
  140.         "-- Installation:\n"
  141.         "Add the newwpa8 command directly after SetPatch in your startup-sequence. "
  142.         "The patch detaches itself from the Shell, there is no need to RUN it. "
  143.         "It is most important that the patch is run before any other patch to "
  144.         "the graphics system like the CyberGraphics driver that intercepts "
  145.         "the calls itself."
  146.         ))
  147.  
  148.     (set #ask-powerpcversion (cat "\n"
  149.         "Do you want to get the PowerPC®-Version of\n"
  150.         "AmigaWriter installed?\n\n"
  151.         ))
  152.  
  153.  
  154. (if (= @language "deutsch") (
  155.  
  156.  
  157.     (set #wrongos "\n Sorry, AmigaWriter benötigt OS3.0 oder höher.\n")
  158.  
  159.     (set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")
  160.  
  161.     (set #welcome (cat "\n\nWillkommen bei der Installation der neuen\n"
  162.         "Textverarbeitung AmigaWriter.\n\n"
  163.         ""#amigawriter-version " vom "#amigawriter-date"\n\n"
  164.         "Dieses Skript kopiert die verschiedenen\n"
  165.         "Dateien und Bibliotheken, aus denen sich AmigaWriter\n"
  166.         "zusammensetzt auf Ihre Festplatte.\n\n"
  167.         "© 2000 HAAGE&PARTNER Computer GmbH\n"
  168.         ))
  169.  
  170.    (set #lizenz (cat "\n"
  171.         "Lizenzbestimmungen\n\n"
  172.         "Bitte lesen Sie die beigefügten Lizenzbestimmungen sorgfältig "
  173.         "durch. Sollten Sie mit diesem Vertrag nicht einverstanden sein, "
  174.         "brechen Sie die Installation ab und schicken Sie das Paket "
  175.         "bitte an unsere Adresse zurück.\n\n"
  176.         "Wenn Sie mit den Lizenzbestimmungen einverstanden sind, klicken "
  177.         "Sie auf weiter und fahren mit der Installation fort.\n\n"
  178.         "Bitte beachten Sie, daß Sie beim Fortfahren der Installation "
  179.         "die Lizenzbestimmungen automatisch anerkennen!\n"
  180.         ))
  181.  
  182.    (set #lizenz-komplett (cat "\nLizenzbestimmungen zu AmigaWriter\n\n"
  183.         "1 Allgemeines\n\n"
  184.         "(1)     Gegenstand dieses Vertrages ist das Benutzungsrecht für "
  185.         "Computerprogramme der HAAGE & PARTNER Computer GmbH, für die "
  186.         "Benutzungsanleitung sowie für sonstiges zugehöriges, "
  187.         "schriftliches Material, nachfolgend zusammenfassend als "
  188.         "Produkt bezeichnet.\n\n"
  189.         "(2)     Die HAAGE & PARTNER Computer GmbH und/oder die in dem Produkt "
  190.         "angegebenen Lizenzgeber sind Inhaber sämtlicher Rechte an den "
  191.         "Produkten und Warenzeichen.\n\n"
  192.         "2 Nutzungsrechte\n\n"
  193.         "(1)     Der Käufer erhält ein nicht übertragbares, nicht ausschließ- "
  194.         "liches Recht, das erworbene Produkt auf einem Computer bzw. "
  195.         "an einem Arbeitsplatz zu nutzen.\n\n"
  196.         "(2)     Darüber hinaus kann der Anwender eine einzige Kopie zu Sicher-"
  197.         "ungszwecken anfertigen.\n\n"
  198.         "(3)     Der Käufer ist nicht berechtigt, das erworbene Produkt zu "
  199.         "vertreiben, zu vermieten, Dritten Unterlizenzen anzubieten "
  200.         "oder diese in anderer Weise Dritten zur Verfügung zu stellen. "
  201.         "(4)     Es ist verboten, das Produkt zu ändern, zu modifizieren oder "
  202.         "anzupassen oder in jeglicher Form rückzuentschlüsseln. Dieses "
  203.         "Verbot gilt auch für das Übersetzen, Abwandeln, Rückent- "
  204.         "schlüsseln und Weiterverwenden von Teilen.\n\n"
  205.         "3 Gewährleistung\n\n"
  206.         "(1)     Die HAAGE & PARTNER Computer GmbH gewährleistet, daß zum "
  207.         "Zeitpunkt der Lieferung die Datenträger physikalisch frei "
  208.         "von Material- und Herstellungsfehlern sind und das Produkt "
  209.         "wie in der Dokumentation beschriebenen Weise genutzt werden kann. "
  210.         "(2)     Mängel des gelieferten Produkts werden vom Lieferanten innerhalb "
  211.         "der Gewährleistungsfrist von sechs Monaten ab Lieferung nach "
  212.         "entsprechender Mitteilung durch den Anwender behoben. Dies "
  213.         "geschieht nach Wahl des Lieferanten durch kostenfreie Nach- "
  214.         "besserung oder durch Ersatzlieferung in Form eines Updates. "
  215.         "(3)     Die HAAGE & PARTNER Computer GmbH übernimmt keine Haftung dafür, "
  216.         "daß das Produkt für die vom Kunden vorgesehene Aufgabe geeignet "
  217.         "ist. Für eventuell auftretende Folgeschäden übernimmt die "
  218.         "HAAGE & PARTNER Computer GmbH keine Haftung. "
  219.         "(4)     Der Anwender weiß, daß nach dem heutigen Stand der Technik die "
  220.         "Erstellung völlig fehlerfreier Software nicht möglich ist.\n\n"
  221.         "4 Sonstiges\n\n"
  222.         "(1)     In diesem Vertrag sind sämtliche Rechte und Pflichten der Vertrags- "
  223.         "parteien geregelt. Sonstige Vereinbarungen bestehen nicht. "
  224.         "Änderungen sind nur in Schriftform und bei Bezugnahme auf diesen "
  225.         "Vertrag wirksam und beiderseitig zu unterzeichnen. "
  226.         "(2)     Der Gerichtsstand für alle Streitigkeiten aus diesem Vertrag ist, "
  227.         "soweit vereinbar, das zuständige Gericht am Firmensitz der "
  228.         "HAAGE & PARTNER Computer GmbH.\n\n"
  229.         "(3)     Sollten einzelne Bestimmungen dieser Bedingungen nicht rechts- "
  230.         "wirksam sein oder ihre Rechtswirksamkeit durch einen späteren "
  231.         "Umstand verlieren, oder sollte sich in diesen Bedingungen eine "
  232.         "Lücke herausstellen, so wird hierdurch die Rechtswirksamkeit "
  233.         "der übrigen Bestimmungen nicht berührt. Anstelle der unwirksamen "
  234.         "Vertragsbestimmungen oder zur Ausfüllung der Lücke soll eine  "
  235.         "angemessene Regelung gelten, die, soweit rechtlich möglich, "
  236.         "dem am nächsten kommt, was die Vertragsparteien gewollt haben, "
  237.         "soweit sie von der Unwirksamkeit der Bestimmung Kenntnis gehabt  "
  238.         "hätten.\n\n"
  239.         "(4)     Jede Verletzung vorstehender Lizenzbestimmungen oder von Urheber- "
  240.         "und Warenzeichenrechten wird straf- und zivilrechtlich verfolgt. "
  241.         "(5)     Durch Installation der Software werden diese Lizenz- "
  242.         "vereinbarungen anerkannt.\n\n"
  243.         "(6)     Sind Sie mit den Lizenzvereinbarungen nicht einverstanden, "
  244.         "so müssen Sie das Produkt unverzüglich gegen Erstattung bereits "
  245.         "geleisteter Zahlungen an den Lieferanten zurückgeben.\n\n\n\n"
  246.         "August 98 HAAGE&PARTNER Computer GmbH"
  247.         ))
  248.  
  249.    (set #install_wizardlib
  250.       "Kopiere die Wizard.Library")
  251.    (set #install_wizardlib_help
  252.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  253.    (set #install_applib
  254.       "Kopiere die Appmanager.Library")
  255.    (set #install_applib_help
  256.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  257.  
  258.     (set #oldversion (cat "\n"
  259.         "Auf Ihrer Festplatte befindet sich bereits\n"
  260.         "eine Installation von AmigaWriter!\n"
  261.         "" (getassign "AmigaWriter") "\n"
  262.         ))
  263.  
  264.     (set #oldversion_help (cat "\n"
  265.         " Wählen Sie einfach die bereits vorhandene\n"
  266.         "Schublade an, wenn Sie AmigaWriter\n"
  267.         "aktualisieren möchten!\n\n"
  268.         "Ihre alten Voreinstellungen werden\n"
  269.         "dadurch vermutlich ÜBERSCHRIEBEN!"
  270.         ))
  271.     (set #new    "Neu installieren")
  272.     (set #drueber "Update über bisherige Version installieren")
  273.     (set #remove "Deinstallation - AmigaWriter entfernen")
  274.     (set #chose_path (cat "\n"
  275.         "Bitte wählen Sie ein Laufwerk oder/und eine Schublade für die Installation.\n"
  276.         "Eine neue Schublade \"AmigaWriter\" wird automatisch generiert.\n"
  277.         ))
  278.     (set #chose_path_help "Please chose a path.")
  279.  
  280.     (set #fonterror (cat "\n"
  281.         "FONTPROBLEM entdeckt:\n\n"
  282.         "Es müssen die Compugraphic-Fonts:\n\n"
  283.         "CGTimes, CGTriumvirate und LetterGothic\n\n"
  284.         "zwingend installiert sein.\n\n"
  285.         "Die Fonts gehören zum Betriebssystem. Sie werden sie daher"
  286.         " auf Ihrem Diskettensatz zum Betriebssystem finden\n"
  287.         ))
  288.  
  289.     (set #ask-powerpcversion (cat "\n"
  290.         "Möchten Sie, dass die PowerPC®-Version von \n"
  291.         "AmigaWriter installiert wird?\n\n"
  292.         ))
  293.  
  294.     (set #wrk_justamoment (cat "\n"
  295.         "Das dauert eine geraume Zeit.\n"
  296.         "Bitte haben Sie etwas Geduld!\n"
  297.         ))
  298.  
  299.     (set #wrk_lexdecrunch (cat "\n"
  300.         "Entpacke Ihre neue Textverarbeitung...\n\n"
  301.         #wrk_justamoment
  302.         ))
  303.  
  304.     (set #decrunch_error (cat "\n\n"
  305.         "Fehler beim Entpacken!\n\n"
  306.         "Stellen Sie bitte sicher, daß Ihre Festplatte\n"
  307.         "ausreichend Speicherkapazität hat, und, falls\n"
  308.         "die Dateien bereits vorhanden sind, diese nicht\n"
  309.         "lösch- oder schreibgeschützt sind.\n"
  310.         ))
  311.  
  312. (set #licencetext 'license/D-Lizenz')
  313.  
  314.     (set #prp-wpa8 (cat "\n"
  315.         "Aufgepasst:\n\n"
  316.         "Wenn sie einen A1200 oder A4000 ohne Grafikkarte (mit AGA-Chipset) "
  317.         "betreiben, kann es zu Problemen kommen. Der Patch NewWPA8 behebt diese.\n "
  318.         "Dazu wird das Kommando NewWPA8 in ihre startup-sequence eingefügt "
  319.         "(Ihre startup-sequence wird zuvor gesichert).\n "
  320.         "Wenn sie dies nicht wollen, wählen sie ÜBERSPRINGEN. "
  321.         ))
  322.  
  323.     (set #wpa8c-help (cat "Achtung:\n"
  324.         "Das AmigaOS kennt drei Funktionen in der graphics.library die Chunky-Pixel "
  325.         "auf einen RastPort ausgeben: WritePixelLine8, WritePixelArray8 und "
  326.         "WriteChunkyPixels.\n"
  327.         "Die Original-Versionen dieser Routinen im Kickstart-ROM sind ziemlich "
  328.         "langsam und haben einen Fehler, der den Chunky-Quellbuffer zerstört.\n "
  329.         "Dieser Patch installiert verbesserte Versionen dieser Funktionen, die "
  330.         "mit einem schnellen Prozessor oft 10 mal schneller sind\n"
  331.         "-- Systemvoraussetzungen:\n"
  332.         "AmigaOS 3.0 or AmigaOS 3.1. Die WriteChunkyPixels-Funktion gibt es nur im "
  333.         "AmigaOS 3.1. \n"
  334.         "Einen Prozessor ab 68020.\n"
  335.         "-- Wie funktioniert es?\n"
  336.         "Der Kern des Patches besteht aus vier Routinen die Chunky-Daten in "
  337.         "Bitplanes übersetzen.\n"
  338.         "-- Installation: \n"
  339.         "Fügen sie den NewWPA8-Befehl direkt nach SetPatch in ihre Startup-Sequence "
  340.         "ein. Der Patch löst sich selbständig von der Shell, sie brauchen ihn nicht "
  341.         "mit dem Run-Befehl zu starten. \n"
  342.         "Es ist sehr wichtig, daß der Patch vor allen anderen Patches, die diese "
  343.         "Funktion Grafiksystem betreffen, wie z.B. CyberGraphX und Picasso 96, "
  344.         "gestartet wird."
  345.     ))
  346.  
  347. ))
  348.  
  349. (set #os-version (/ (getversion) 65536))
  350. (set #os-13 (< #os-version 36))
  351. (set #os-20 (>= #os-version 36))
  352. (set #os-21 (>= #os-version 38))
  353. (set #os-30 (>= #os-version 39))
  354.  
  355. (set setpatchvernum (getversion "C:SetPatch"))
  356. (set setpatchver (/ setpatchvernum 65536))
  357. (set setpatchrev (- setpatchvernum (* setpatchver 65536)))
  358.  
  359. ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
  360.  
  361. (set #source-readme                  "Readme")
  362. (set #source-liesmich                 "Liesmich")
  363. (set #source-setpatch                 "Tools/SetPatch43_6/Setpatch")
  364.  
  365. (set #68k-version                       "68k-Version/")
  366.  
  367. (set #source-insert                     "Tools/NewWPA8/Insert")
  368. (set #source-NewWPA8             "Tools/NewWPA8/NewWPA8")
  369.  
  370. (set #source-icon                      "C/AmigaWriter.info")
  371.  
  372. (set #wizardlib                            "sys-libs/wizard.library")
  373.  
  374. ;=====================================================================================
  375. ; // Beginn der Installation
  376. ;=====================================================================================
  377.  
  378. ; ----------------------------- Prozeduren ------------------------------
  379.  
  380. (Procedure @Make_Folder
  381.     (
  382.    (set #oldfolder #folder)
  383.     (set #folder (tackon #folder "AmigaWriter"))
  384.         (if (= (exists #folder) 0)
  385.             (
  386.             (makedir #folder (infos))
  387.             )
  388.             (
  389.             (set #update 1)        ; // Doch schon vorhanden!
  390.             )
  391.         )
  392.     )
  393. )
  394.  
  395. ; // wird min. unter 3.0 installiert ?
  396.  
  397. (if (= #os-30 0)
  398.  
  399.     (
  400.         (message #wrongos)
  401.         (exit (quiet))
  402.     )
  403. )
  404.  
  405. (if (patmatch "68000|68010" (database "cpu"))
  406.     (
  407.         (message #wrongcpu)
  408.         (exit (quiet))
  409.     )
  410. )
  411.  
  412. (onerror (
  413.     (if (> @ioerr 0)
  414.         (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
  415.     )
  416. ))
  417.  
  418. (run "Resident C/IconPos PURE" (safe))
  419.  
  420. ; // Eine kleine Änderung to enable das script zu laufen (deutsch??).
  421.  
  422. ;(run "ASSIGN ENV: WarpUP-WarpOS/ENV/ ADD")
  423.  
  424. ; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  425.  
  426. (showmedia 'pic' "Installer/welcome.iff" 'upper_right' 'none' 1)
  427.  
  428. (message #welcome)
  429.  
  430. (showmedia 'pic1' "Installer/antialias.iff" 'upper_left' 'none' 1)
  431.  
  432. (set #yeskey "Yes")
  433. (set #nokey "No")
  434.  
  435. (if (= @language "deutsch") (
  436.     (set #yeskey "Ja")
  437.     (set #nokey "Nein")
  438. ))
  439.  
  440.  
  441. (complete 2)
  442.  
  443. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  444.  
  445. (set #folder "Work:")
  446. (set #update 0)
  447.  
  448. (if (exists "AmigaWriter:" (noreq))
  449.     (
  450.         (set #update
  451.             (askchoice
  452.                 (prompt #oldversion)
  453.                 (help   #oldversion_help)
  454.                 (default 1)
  455.                 (choices
  456.                     #new
  457.                     #drueber
  458.                 )
  459.             )
  460.         )
  461.     )
  462. )
  463.  
  464. (if (<> #update 0)                        ; // altes Assign benutzen wenn update oder remove
  465.     (
  466.         (set #folder (getassign "AmigaWriter"))
  467.     )
  468. )
  469.  
  470. (complete 30)
  471.  
  472. (if (= #update 0)
  473.     (
  474.     (set ok 0)
  475.         (while (not ok)
  476.             (set #folder
  477.                 (askdir
  478.                 (prompt #chose_path)
  479.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  480.                 (default #folder)
  481.                 (disk)
  482.                 )
  483.             )
  484.  
  485.             (@Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  486.  
  487.     (set #dir_error (cat  "\n"
  488.         "Your selection \"" #folder "\" is not a\n"
  489.         "valid device or drawer!\n\n"
  490.         "Select 'Show drives' to get an overview of all\n"
  491.         "devices available on your Amiga.\n"
  492.         "Please select one of the devices on top of\n"
  493.         "the list.\n"
  494.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
  495.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  496.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  497.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  498.         ))
  499.  
  500.     (set #memory_error (cat  "\n"
  501.         "There is not enough free disk space at the\n"
  502.         "device you have selected for the installation.\n\n"
  503.         "Free diskspace    " freediskspace "!\n"
  504.         "Diskspace needed  " size-komplett "!\n\n"
  505.         "Please select a another device or harddisk!"
  506.         ))
  507.  
  508. (if (= @language "deutsch") (
  509.  
  510.  
  511.     (set #dir_error (cat  "\n"
  512.         "Bei Ihrer Auswahl \"" #folder "\" handelt es   \n"
  513.         "sich nicht um eine gültige Schublade!         \n"
  514.         "                                              \n"
  515.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  516.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  517.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  518.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  519.         "farblich gekennzeichneten Einträge auswählen. \n"
  520.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  521.         "können Sie ein neue Schublade erzeugen. Diese \n"
  522.         "neue Schublade wird auf der Partition        \n"
  523.         "angelegt, die Sie soeben betrachten."
  524.         ))
  525.  
  526.     (set #memory_error (cat  "\n"
  527.         "Auf der ausgewählten Festplattenpartition     \n"
  528.         "steht nicht genügend freier Speicher für die  \n"
  529.         "komplette Installation des Compilersystems zur\n"
  530.         "Verfügung.                                    \n"
  531.         "                                              \n"
  532.         "Freier Speicher " freediskspace "!            \n"
  533.         "Benötigter Speicher " size-komplett "!        \n"
  534.         "                                              \n"
  535.         "Bitte wählen Sie eine andere Partition, auf   \n"
  536.         "der entsprechende Kapazitäten vorhanden sind!"
  537.         ))
  538. ))
  539.  
  540. (if (= @language "italiano") (
  541.  
  542.     (set #dir_error (cat  "\n"
  543.         "La vostra selezione (\"" #folder "\") non è\n"
  544.         "un disco o un cassetto valido!\n\n"
  545.         "Selezionate 'Dischi' per avere una lista dei\n"
  546.         "dischi disponibili sul vostro Amiga.\n"
  547.         "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
  548.         "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
  549.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  550.         "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
  551.         ))
  552.  
  553.     (set #memory_error (cat  "\n"
  554.         "Il disco che avete selezionato non ha\n"
  555.         "abbastanza spazio libero.\n\n"
  556.         "Spazio disponibile   " freediskspace "\n"
  557.         "Spazio richiesto     " size-komplett "\n\n"
  558.         "Provate a selezionare un altro disco."
  559.         ))
  560. ))
  561.  
  562.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  563.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  564.             ; // kann die Auswahl-Schleife beendet werden.
  565.             (if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
  566.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  567.                 ;else
  568.                 (
  569.                     (set freediskspace (getdiskspace #folder))  ; // Der freie Speicher auf diesem Medium
  570.                     (if (< freediskspace size-komplett)
  571.                         (
  572.                         (user 1)
  573.                             (message #memory_error)  ; // nicht genügend freier Speicher
  574.                         )
  575.                      ;else
  576.                         (set ok 1)
  577.                     )
  578.                 )
  579.             )
  580.         )
  581.     )
  582. )
  583.  
  584.  
  585. (set @default-dest (#folder))
  586.  
  587. (complete 4)
  588.  
  589. ; // Liesmich Datei auf Festplatte kopieren!
  590.  
  591. (copyfiles
  592.     (dest #folder)
  593.     (source #source-readme)
  594.     (infos)
  595. )
  596.  
  597. (copyfiles
  598.     (dest #folder)
  599.     (source #source-liesmich)
  600.     (infos)
  601. )
  602.  
  603. (closemedia pic1)
  604.  
  605. (showmedia 'pic2' "Installer/MSWord.iff" 'upper_left' 'none' 1)
  606.  
  607. ; 68k-Version
  608.  
  609. (copyfiles
  610.         (dest #folder)
  611.         (source #68k-version)
  612.         (all)
  613. )
  614.  
  615. (complete 50)
  616.  
  617. (closemedia pic2)
  618.  
  619. (showmedia 'pic3' "Installer/PowerPC.iff" 'upper_left' 'none' 1)
  620.  
  621. ; Libs auf die Platte kopieren
  622.  
  623. (complete 50)
  624.  
  625. (copylib
  626.    (prompt  #install_wizardlib)
  627.    (help    #install_wizardlib_help)
  628.    (source  #wizardlib)
  629.    (dest    "libs:")
  630.    (confirm)
  631. )
  632.  
  633. (if (= #update 0)
  634.     (
  635.       (copyfiles
  636.         (dest #oldfolder)
  637.         (source #source-icon)
  638.       )
  639.    )
  640. )
  641.  
  642. ; installation of NewWPA8, patch by AND
  643.  
  644. (set #wpa8-skip (cat "Skip this part"))
  645. (set #wpa8-proceed (cat "Insert NewWPA8"))
  646.  
  647. (if(= @language "deutsch") (
  648.    (set #wpa8-skip (cat "Diesen Teil überspringen"))
  649.    (set #wpa8-proceed (cat "NewWPA8 einfügen"))
  650. ))
  651.  
  652. (if((askbool (prompt #prp-wpa8)
  653.              (help #wpa8-help)
  654.              (choices #wpa8-proceed #wpa8-skip)))
  655.     (
  656.     (copyfiles
  657.         (dest "RAM:")
  658.         (source #source-insert)
  659.     )
  660.     (run "ram:insert s:startup-sequence -i C:NewWPA8 -p setpatch")
  661.     (copyfiles (dest "c:")
  662.                (source #source-NewWPA8)
  663.     )
  664. ))
  665.  
  666. (complete 80)
  667.  
  668. (closemedia pic3)
  669.  
  670. (showmedia 'pic4' "Installer/Megafont.iff" 'upper_left' 'none' 1)
  671.  
  672. (set #patchresult 0)
  673. (set #setpatchask (cat "\n\nWrong Setpatch-Version\n\n"
  674.                  "You have installed version "setpatchver"."setpatchrev" of SetPatch\n\n"
  675.                  "Please install a new one!"))
  676.  
  677. (if (= @language "deutsch") (
  678. (set #setpatchask (cat "\n\nAlte Version von SetPatch entdeckt.\n\n"
  679.                  "Sie haben Version "setpatchver"."setpatchrev" von SetPatch installiert.\n\n"
  680.                  "Soll einen neuere Version installiert werden?")))
  681. )
  682.  
  683. (if (<= setpatchver 40)
  684.    (if (<= setpatchrev 16)
  685.        (set #patchresult
  686.             (askbool
  687.             (prompt #setpatchask)
  688.             (help @askoptions-help)    ; // Auswahl Hilfetext
  689.             (default 0))
  690.        )
  691.  
  692.    )
  693. )
  694.  
  695. (if (<> #patchresult 0)
  696.     (
  697.         (copyfiles
  698.             (source #source-setpatch)
  699.             (dest "C:")
  700.         )
  701.     )
  702. )
  703.  
  704. (complete 82)
  705.  
  706. (run (cat "IconPos \"" #folder "/AmigaWriterDemo\"                       10 10\n"))
  707.  
  708. (run (cat "IconPos \"" #folder "/Liesmich\"                            110 10\n"))
  709. (run (cat "IconPos \"" #folder "/Readme\"                          110 90\n"))
  710.  
  711. (run (cat "IconPos \"" #folder "/Documents\"                         200 10\n"))
  712. (run (cat "IconPos \"" #folder "/Word-Documents\"                200 90\n"))
  713.  
  714. ;============= Startup ändern =====================================================
  715.  
  716. (set #startuptemp (cat "\nASSIGN AMIGAWRITER: " #folder "\n"))
  717.  
  718. (set #startup (cat "\n"
  719.     "To get AmigaWriter work well there has to be made\n"
  720.     "some changes to your User-Startup.\n\n"
  721.     #startuptemp
  722.     ))
  723.  
  724. (set #endnow (cat "Installation of AmigaWriter V2.0 demo completed.\n"
  725.     "If the lines:\n" #startuptemp "\ndo not appear\n"
  726.     "in your Startup-Sequence or User-Startup,\n"
  727.     "please add it manually.\n\n"
  728.     "Remove all disks and start your new word processor.\n\n"
  729.     "Best wishes..."
  730.     "HAAGE & PARTNER"
  731.     ))
  732.  
  733. (if (= @language "deutsch") (
  734.  
  735. (set #startup (cat "\n"
  736.     "Um mit AmigaWriter richtig arbeiten zu können, muß \n"
  737.     "eine Änderung an der User-Startup vorgenommen \n"
  738.     "werden:                                       \n"
  739.     "                                              \n"
  740.     #startuptemp
  741.     ))
  742.  
  743. (set #endnow (cat "\n"
  744.     "Installation Ihrer neuen Textverarbeitung AmigaWriter V2.0 Demo beendet.\n\n"
  745.     "Falls die Zeile:\n" #startuptemp "\n"
  746.     "nicht in Ihre User-Startup eingefügt wurde,   \n"
  747.     "dann holen Sie dies bitte nach.               \n\n"
  748.     "Starten Sie nun AmigaWriter.              \n\n"
  749.     "Und nun viel Erfolg mit Ihrer neuen Textverarbeitung!\n"
  750.     ))
  751. ))
  752.  
  753. (if (= @language "italiano") (
  754.  
  755. (set #startup (cat "\n"
  756.     "Per completare l'installazione dello AmigaWriter demo\n"
  757.     "sono necessarie alcune modifiche alla User-Startup.\n\n"
  758.     #startuptemp
  759.     ))
  760.  
  761. (set #endnow (cat "L'installazione dello AmigaWriter V2.0 demoè terminata.\n"
  762.     "Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
  763.     "o nella User-Startup, eseguitele manualmente.\n\n"
  764.     "Rimuovete tutti i dischi e avviate lo AmigaWriter.\n\n"
  765.     "Con i migliori auguri..."
  766.     "HAAGE & PARTNER"
  767.     ))
  768. ))
  769.  
  770.  
  771. (startup "AmigaWriter"
  772.     (prompt #startup)
  773.     (help #help-startup)
  774.     (command #startuptemp)
  775. )
  776.  
  777. (makeassign "AMIGAWRITER")
  778. (makeassign "AMIGAWRITER" #folder)
  779.  
  780.  
  781. (complete 100)
  782.  
  783. (exit #endnow (quiet))
  784.